home *** CD-ROM | disk | FTP | other *** search
/ Delphi Magazine Collection 2001 / Delphi Magazine Collection 20001 (2001).iso / DISKS / ISSUE23 / PZAZZDEM / PZAZZDEM.ZIP / PZDEMO / PZDMAIN.PAS < prev    next >
Pascal/Delphi Source File  |  1997-03-03  |  3KB  |  126 lines
  1. unit PZDMain;
  2.  
  3. interface
  4.  
  5. uses
  6.   SysUtils, WinTypes, WinProcs, Messages, Classes, Graphics, Controls,
  7.   Forms, Dialogs, Buttons, ExtCtrls, PZBpanel, StdCtrls, PZShaded, PZSpButt,
  8.   PZLabel, PZDLabel, PZDShade, PZDBPane, PZDSpBut, PZDBitBt, PZDLView, PZDTView,
  9.   PZLView, DB, pzbgnd, Menus;
  10.  
  11. type
  12.   TMainForm = class(TForm)
  13.     MainPanel: TPanel;
  14.     Panel2: TPanel;
  15.     PZLabelSB: TPZSpeedButton;
  16.     PZBitmapPanelSB: TPZSpeedButton;
  17.     PZListViewSB: TPZSpeedButton;
  18.     PZTreeViewSB: TPZSpeedButton;
  19.     PZSpeedButtonSB: TPZSpeedButton;
  20.     PZShadedSB: TPZSpeedButton;
  21.     PZBitmapPanel1: TPZBitmapPanel;
  22.     PZBitmapButtonSB: TPZSpeedButton;
  23.     procedure FormCreate(Sender: TObject);
  24.     procedure PZLabelSBClick(Sender: TObject);
  25.     procedure PZShadedSBClick(Sender: TObject);
  26.     procedure PZBitmapPanelSBClick(Sender: TObject);
  27.     procedure PZSpeedButtonSBClick(Sender: TObject);
  28.     procedure PZListViewSBClick(Sender: TObject);
  29.     procedure PZTreeViewSBClick(Sender: TObject);
  30.     procedure PZBitmapButtonSBClick(Sender: TObject);
  31.   private
  32.     { Private declarations }
  33.   public
  34.     { Public declarations }
  35.   end;
  36.  
  37. var
  38.   MainForm: TMainForm;
  39.  
  40. implementation
  41.  
  42. {$R *.DFM}
  43. {$IFNDEF WIN32}
  44.   {$R PZDBmp16}
  45. {$ELSE}
  46.   {$R PZDBmp32}
  47. {$ENDIF}
  48.  
  49. procedure TMainForm.FormCreate(Sender: TObject);
  50.  
  51. Const
  52.   InitSize =0.75;
  53.  
  54. begin
  55.   Width:=Round(Screen.Width*InitSize);
  56.   Height:=Round(Screen.Height*InitSize);
  57.   Left:=(Screen.Width Div 2)-(Width Div 2);
  58.   Top:=(Screen.Height Div 2)-(Height Div 2);
  59.   WindowState:=wsMaximized;
  60. end;
  61.  
  62. procedure TMainForm.PZLabelSBClick(Sender: TObject);
  63.  
  64. Var
  65.   PZLabelForm :TPZLabelForm;
  66.  
  67. begin
  68.   PZLabelForm:=TPZLabelForm.Create(Self);
  69. end;
  70.  
  71. procedure TMainForm.PZShadedSBClick(Sender: TObject);
  72.  
  73. Var
  74.   PZShadedForm :TPZShadedForm;
  75.  
  76. begin
  77.   PZShadedForm:=TPZShadedForm.Create(Self);
  78. end;
  79.  
  80. procedure TMainForm.PZBitmapPanelSBClick(Sender: TObject);
  81.  
  82. Var
  83.   PZBitmapPanelForm :TPZBitmapPanelForm;
  84.  
  85. begin
  86.   PZBitmapPanelForm:=TPZBitmapPanelForm.Create(Self);
  87. end;
  88.  
  89. procedure TMainForm.PZSpeedButtonSBClick(Sender: TObject);
  90.  
  91. Var
  92.   PZSpeedButtonForm :TPZSpeedButtonForm;
  93.  
  94. begin
  95.   PZSpeedButtonForm:=TPZSpeedButtonForm.Create(Self);
  96. end;
  97.  
  98. procedure TMainForm.PZBitmapButtonSBClick(Sender: TObject);
  99.  
  100. Var
  101.   PZBitmapButtonForm :TPZBitmapButtonForm;
  102.  
  103. begin
  104.   PZBitmapButtonForm:=TPZBitmapButtonForm.Create(Self);
  105. end;
  106.  
  107. procedure TMainForm.PZListViewSBClick(Sender: TObject);
  108.  
  109. Var
  110.   PZListViewForm :TPZListViewForm;
  111.  
  112. begin
  113.   PZListViewForm:=TPZListViewForm.Create(Self);
  114. end;
  115.  
  116. procedure TMainForm.PZTreeViewSBClick(Sender: TObject);
  117.  
  118. Var
  119.   PZTreeViewForm :TPZTreeViewForm;
  120.  
  121. begin
  122.   PZTreeViewForm:=TPZTreeViewForm.Create(Self);
  123. End;
  124.  
  125. end.
  126.